
current_fp <- "."

chicago_files <- list("Murders" = list(processed=list(city="data/Chicago/murders/Chicago_city_murders.csv",
                                                      tract="data/Chicago/murders/Chicago_tract_murders.csv")),
                      "Demographics" = list(raw=list("1970"="data/Chicago/demographics/raw/1970_censusdata_raw_2010tracts.csv",
                                                     "1980"="data/Chicago/demographics/raw/1980_censusdata_raw_2010tracts.csv",
                                                     "1990"="data/Chicago/demographics/raw/1990_censusdata_raw_2010tracts.csv",
                                                     "2000"="data/Chicago/demographics/raw/2000_censusdata_raw_2010tracts.csv",
                                                     "2010"=list("poverty"="data/Chicago/demographics/raw/2010_acsdata_2006-2010_raw.csv",
                                                                 "race"="data/Chicago/demographics/raw/2010_censusdata_raw.csv"),
                                                     "2019"="data/Chicago/demographics/raw/2019_acsdata_2015-2019_raw.csv"),
                                            processed="data/Chicago/demographics/Chicago_Demographics_1965-2020.csv"),
                      "Male Incarceration" = list(raw="data/Chicago/incarceration/raw/incarc_rates_opp_atlas_male.csv",
                                                  processed="data/Chicago/incarceration/Chicago_MaleIncarceration_2010.csv"),
                      "Police Shootings" = list(processed="data/Nation/police_shootings/Nation_PoliceShootings_2014-2020.csv"))

national_files <- list("Shootings" = list(raw="data/Nation/fatal_shootings/raw/Nation_Fatal_Shootings_All.csv",
                                          processed="data/Nation/fatal_shootings/Nation_Shootings_2014-2020.csv"),
                       "Demographics" = list(raw=list("2014"="data/Nation/demographics/Nation_Demographics_acs2014.csv",
                                                      "2019"="data/Nation/demographics/Nation_Demographics_acs2019.csv"),
                                             processed="data/Nation/demographics/Nation_Demographics_2014-2020.csv"),
                       "Male Incarceration" = list(raw="data/Nation/incarceration/raw/allcities_incarceration_male.csv",
                                                   processed="data/Nation/incarceration/Nation_MaleIncarceration_2010.csv"),
                       "Police Shootings" = list(raw="data/Nation/police_shootings/raw/Nation_Police_Shootings_All.csv",
                                                 processed="data/Nation/police_shootings/Nation_PoliceShootings_2014-2020.csv"),
                       "Geographies" = list(processed="data/Nation/geography/Nation_2010_CensusTracts.shp"))

helper_files <- list("Helper Functions" = "R/helper_functions/",
                     "Tract Conversion" = list("1970:2010"="data/tract_changes/crosswalk_1970_2010.csv",
                                               "1980:2010"="data/tract_changes/crosswalk_1980_2010.csv",
                                               "1990:2010"="data/tract_changes/crosswalk_1990_2010.csv",
                                               "2000:2010"="data/tract_changes/crosswalk_2000_2010.csv"),
                     "City List" = "data/Nation/CityList.csv")

# combine all into a list of lists
file_locations <- list("current_fp" = current_fp,
                       "Chicago"=chicago_files,
                       "Nation"=national_files,
                       "Helpers"=helper_files)




